home *** CD-ROM | disk | FTP | other *** search
/ Delphi Magazine Collection 2001 / Delphi Magazine Collection 20001 (2001).iso / DISKS / ISSUE08 / DATADICT / LINKDLG.PAS < prev    next >
Encoding:
Pascal/Delphi Source File  |  1995-10-20  |  1.0 KB  |  48 lines
  1. unit Linkdlg;
  2.  
  3. interface
  4.  
  5. uses WinTypes, WinProcs, Classes, Graphics, Forms, Controls, Buttons,
  6.   StdCtrls, ExtCtrls;
  7.  
  8. type
  9.   TLinkBtnBottomDlg = class(TForm)
  10.     OKBtn: TBitBtn;
  11.     CancelBtn: TBitBtn;
  12.     HelpBtn: TBitBtn;
  13.     Bevel1: TBevel;
  14.     ComboBox2: TComboBox;
  15.     Label1: TLabel;
  16.     Label2: TLabel;
  17.     Label3: TLabel;
  18.     TableListBox: TListBox;
  19.     procedure FormActivate(Sender: TObject);
  20.   private
  21.     { Private declarations }
  22.   public
  23.     { Public declarations }
  24.   end;
  25.  
  26. var
  27.   LinkBtnBottomDlg: TLinkBtnBottomDlg;
  28.  
  29. implementation
  30.  
  31. {$R *.DFM}
  32. {procedure set_link(var source : tdbCheckBox; tablestr, fieldstr : string);
  33. begin with LinkBtnBottomDlg do begin
  34.   label1.caption := 'Link Field "'+fieldstr+'" of table "'+tablestr+'" to the following:';
  35.   if showModal = mrOK
  36.     then begin
  37.       source.lines.assign(memo1.lines);
  38.   hide;
  39.   end;
  40. end;}
  41.  
  42. procedure TLinkBtnBottomDlg.FormActivate(Sender: TObject);
  43. begin
  44. {  TableListBox.items := main.m_tableList.items;}
  45. end;
  46.  
  47. end.
  48.